﻿Imports System.Drawing

Public Class Scheduler
    Structure Request
        Dim Sender As String
        Dim GUID As String
        Dim Product As String
        Dim Release As String
        Dim Reference As String
        Dim Description As String
        Dim Sourcefiles As String()()
        Dim Components As String()()
        Dim SQL As String()
        Dim Impact As String
        Dim Info As String
    End Structure

    Dim codecs As BuildCodex

    Private Sub Scheduler_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Load_Queue(BuildAddIn.Build)
    End Sub
    Private Sub Scheduler_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        If Me.Width <= 201 Then
            Me.Width = 201
        End If
        If Me.Height <= 131 Then
            Me.Height = 131
        End If
        lvBuild.Width = Me.Width - 70
        btnPlay.Location = New Point(lvBuild.Width + 6, 6)
        btnUp.Location = New Point(lvBuild.Width + 6, Me.Height - 96)
        btnDown.Location = New Point(lvBuild.Width + 6, Me.Height - 67)
    End Sub
    Private Sub btnPlay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPlay.Click

    End Sub ' Do not continue
    Private Sub btnUp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUp.Click

    End Sub ' Move build up queue order
    Private Sub btnDown_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDown.Click

    End Sub ' Move build down queue order

    Private Sub Load_Queue(ByVal builds As String())
        For i = 0 To builds.Length - 1
            lvBuild.Items.Add(builds(i))
        Next
    End Sub ' Take build list put into queue list
End Class